﻿
Public Class Cliente
    Private DniCliente As String
    Private NombreCliente As String
    Private TelefCliente As String
    Private FacebookCliente As Boolean
    Private TwitterCliente As String

    Public Sub New(ByVal D As String, ByVal N As String, ByVal T As String, ByVal F As Boolean, ByVal Tw As String)
        DniCliente = D
        NombreCliente = N
        TelefCliente = T
        FacebookCliente = F
        TwitterCliente = Tw
    End Sub

    Public Property DNI() As String

        Get
            Return DniCliente
        End Get
        Set(ByVal value As String)
            DniCliente = value

        End Set
    End Property

    Public Property Nombre() As String

        Get
            Return NombreCliente
        End Get
        Set(ByVal value As String)
            NombreCliente = value
        End Set
    End Property

    Public Property Telefono() As String
        Get
            Return TelefCliente
        End Get
        Set(ByVal value As String)
            TelefCliente = value
        End Set
    End Property

    Public Property Facebook() As Boolean

        Get
            Return FacebookCliente
        End Get
        Set(ByVal value As Boolean)
            FacebookCliente = value
        End Set
    End Property

    Public Property Twitter() As String

        Get
            Return TwitterCliente
        End Get
        Set(ByVal value As String)
            TwitterCliente = value
        End Set
    End Property


End Class
